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EDTSSCRNOREV = put the screen in normal mode 16- se-1984 91:39:02 


VAX-11 Bliss-32 V 
~Sep-1 PE EKSUMGMASTERSCEDT SRCISCRNOREV.BLIGT” ¢ 


v = put the screen in normal mode’ 


' Put the screen in normal m 


SU ebe a 
Nt = 'v04-000' ! File: SCRNOREV. BLT Edit: J8S1003 
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BEGIN 


ee ee ee ee 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

& ALL RIGHTS RESERVED. 

is THIS SOFTWARE IS pen ece UNDER A LICENSE AND MAY BE USED AND COPIED 
'# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
tt INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
't COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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'@ 

'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
? CORPORATION. 

ie DIGITAL ASSUMES NO RESPONS 
:* SOFTWARE ON EQUIPMENT WHIC 
i 
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ITY FOR THE USE OR RELIABILITY OF ITS 
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FACILITY: EDT == The DEC Standard Editor 
{| ABSTRACT: 
This module ensures that the screen is not in reverse video. 
i ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: Bob Kushlis, CREATION DATE: September 8, 1979 
i MODIFIED BY: 
i 1-001 = Origioat. DJS 12- qrobe tae) This module was created b 
q_the routine cor TS$8C, ea {0 from module SCREEN. 


i 17888 - Regularize headers. Mar-1 
1 - Improve the nest ae e* the hy Ue JBS 17-Jun-1983 
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; 1 } SSBTTL "Declarations' : 
; : 1 | TABLE OF CONTENTS: : 
& \ | 
i 96 085 } REQUIRE "EDTSRC: TRAROUNAM' ; : 
: 58 495 1 FORWARD ROUTINE ; 
: 59 496 1 EDTSSSC_NONREVID : NOVALUE; : 
8 Bea, : 
: 6¢ 5 1! INCLUDE FILES: : 
; 6 0 1 i : 
: 64 1 : 
; 65 3 REQUIRE "EDTSRC:EDTREQ'; 3 
: 6 8 1! : 
68 3 | MACROS ; 
: $ 11! NONE ; 
3 71 § .% 3 
3 Le 1 ! EQUATED SYMBOLS: 3 
if ee 1! ; 
; 75 § 1 BIND : 
; 6 4? NORM_VIDEO = UPLIT (%STRING (ZCHAR (ASC_K_ESC), '{m')); 

: 78 49 1 LITERAL 

7 650 1 NORM_VIDEO_LEN = 3; 

Rp Rd, 

3 8 0g58 OWN STORAGE: 

(poe ie 

> 86 b689 1 | EXTERNAL REFERENCES: 

: 87 0658 1! 

: 0659 1! 


In the routine 


EDTSSCRNOREV DISSCRNOREV - t the screen in normal mode 16-5¢ ep-1984 01:39: VAX-11 ss-32 V 
$ou~000 EHEC ponte = put the screen in normal mo 1 300-1382 9:32:92 DISKS$V nen STER: cto i SRCISCRNOREV. BLI; + we 
ZSBTTL "EDTSSSC_NONREVID = put the screen in normal mode’ 
GLOBAL ROUTINE EDTSSSC_NONREVID ! Put the screen in normal (no reverse video) mode 
: NOVALUE = 


1e4 
: FUNCTIONAL DESCRIPTION: 


SLSAELVLS 


This routine puts the screen in normal mode (that is, not reverse video). 
i FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
EDTS$G_REVID 
IMPLICIT OUTPUTS: 
EDTSSG_REVID 
{ ROUTINE VALUE : 
NONE 
{ SIDE EFFECTS 
NONE 
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BEGIN 


caren, 8 Rout it ‘ 
EDTSSFMT_LIT; 


EXTERNA 
£DT$8G_REVID; ! is reverse video on? 


IF (.EDTS$G_REVID NEQ 0) 
THEN 


BEGIN 
EDTSSFM eit taht NORM_VIDEO_LEN) ; 
EDTSSG.R Evi> = 0; 
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END; ! of routine EDTS$SC_NONREVID 


-TITLE EDTSSCRNOREV EDTSSCRNOREV - put the screen inn 
; ormal mode 

-IDENT \Vv04-000\ 

-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


00 6D 5B 1B 00000 P.AAA: .ASCII <27>\CEm\<0> : 


crore BIER 


NORM_VIDEO= P.AAA 
-EXTRN EDTSSFMT_LIT, EDT$$G_REVID 

00 .ENTRY EDT$SSC alONREVI , Save R2 ; 
$2 000000006 99 ge HVAB. ED 1386. REVID. sot 

: TSTL ED DT$$G-REVID 

: BEQL 
ee 

000000006 00 08 rB 2 CALLS 3 EDISSFMT_LIT : 
5 b4 1 CLAL DT$$G_REVID : 
4 00018 1$ RET ; 


; Routine Size: 28 bytes, Routine Base: _EDTSCODE + 0004 


$709 !<BLF /PAGE> 


maneeisBotte Serer, anormal node 9, HE-HeenHgEE GURTEAD  YMHUABLHE EZ AS PGT Sscmonev.oui{t* cs 


RNOREV DISSCRNOREV t the screen in normal mode Ibs ep-1 VAX-11 Bliss-32 V4.0- 5 a 
R860 ED Tees SC_NON NONREVIB™ = put the screen in normal mo 1 300-1 3be 9}: 3: 93 DISKSVMSMASTER: ct + SRCISCRNOREV. BLI; + a (4) | 
; 146 10 1 END ! of TSSCNOREV 
: 146 ort i of module EDTSSCNORE 
; (14 71 ELUDOM 
: PSECT SUMMARY 
3 Name Bytes Attributes 
; _EDTSCODE 32 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

BS Se Gee ins - ee Symbols -<------ Pages Processing 

: File Total Loaded Percent Mapped Time 

> _$255$DUA28: (EDT. SRCJEDT.L32;1 377 1 4 0:00.2 

S eea st UASe Lepr sncaPsecTs i $2s1 5 50 ° 00:00. 

: COMMAND QUALIFIERS 

; FL FOE CMECHOSE FELD SEE TEAL APT ENE TE) SME TOALEDACEA, S254, 558 1 OCENORE W/OR ISSR. IEs SERNONEY MSRC$:SCRNOREV.BLI/UPDATE=(ENHS$:SCRN 


3 Size: 28 code + 4 data bytes 
; Run Time: :09. 

3 pe Time: 711. 

3; Lines/CPU Min: 472 

3 Lexemes/CPU-Min: 1264 

3 ry Used: 53 pages 

; Compilation Complete 
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